home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 033a / alia173c.zip / R-PCALIA.MRG < prev    next >
Text File  |  1990-10-09  |  3KB  |  62 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBS-PC.BAS to produce RBBS-PC.NEW
  3. * RBBS-PC.BAS:  Date 9-23-1990  Size 166653 bytes
  4. * ------------[ Created 10-09-1990 01:36:47 ]------------
  5. * REPLACING old line(s) by new
  6. 102 ZMsgDim = 99
  7.     WasMM = 999
  8.     WasBX = 75
  9.     WasJ = 60
  10.     REDIM ZOptSec(WasJ)
  11.     DIM ZWorkAra$(WasJ)
  12.     DIM ZGSRAra$(WasJ)
  13.     DIM ZCategoryName$(WasBX),ZCategoryCode$(WasBX),ZCategoryDesc$(WasBX)
  14.     DIM ZOutTxt$(ZMsgDim)                      ' Message line table
  15.     DIM ZUserIn$(ZMsgDim)                      ' Message line table
  16.     DIM ZMsgPtr(WasMM,2)                       ' Message pointers
  17.     CALL VarInit
  18. * ------[ first line different ]------
  19.     FileSpec$ = "ALIAS.DEF"                                          'Alias
  20.     CALL FindFile(FileSpec$,ZOK)                                     'Alias
  21.     IF NOT ZOK THEN _                                                'Alias
  22.        GOTO 105                                                      'Alias
  23.     OPEN FileSpec$ FOR INPUT AS #1                                   'Alias
  24.     DO WHILE NOT EOF(1)                                              'Alias
  25.        INPUT #1, ZOutTxt$                                            'Alias
  26.        ZAliasFile$ = ZAliasFile$ + ZOutTxt$                          'Alias
  27.     LOOP                                                             'Alias
  28.     CLOSE 1                                                          'Alias
  29. * INSERTING new line(s)
  30. 2015 IF INSTR(ZAliasFile$,ZActiveMessageFile$) > 0 THEN _            'Alias
  31.         ZOutTxt$ = "From:" : _                                       'Alias
  32.         CALL SkipLine (1) : _                                        'Alias
  33.         GOSUB 12995 : _                                              'Alias
  34.         ALIAS$ = LEFT$(ZUserIn$,30) : _                              'Alias
  35.         IF ALIAS$ = "" THEN _                                        'Alias
  36.            RETURN 1200                                               'Alias
  37. * REPLACING old line(s) by new
  38. 3460 IF NOT MsgFwd THEN _
  39.         MsgFrom$ = LEFT$(ZActiveUserName$ + SPACE$(31),31) _
  40.      ELSE _
  41.         MsgFrom$ = LEFT$(MsgFrom$ + SPACE$(31),31)
  42.      MsgTo$ = LEFT$(MsgTo$ + SPACE$(31),31)
  43. * ------[ first line different ]------
  44.      IF INSTR(ZAliasFile$,ZActiveMessageFile$) > 0 THEN _            'Alias
  45.         MsgFrom$ = ALIAS$ + SPACE$(31-LEN(ALIAS$))                   'Alias
  46.      MID$(MsgTo$,23,8) = TIME$
  47.      IF INSTR(ZAliasFile$,ZActiveMessageFile$) > 0 THEN _            'Alias
  48.      MID$(MsgTo$,23,8) = "        "                                  'Alias
  49.      Subject$ = LEFT$(OrigSubject$ + SPACE$(25),25)
  50.      MsgPswd$ = LEFT$(MsgPswd$ + SPACE$(15),15)
  51.      IF QuotedReply AND _
  52.         ZLinesInMsg > ZMaxMsgLines THEN _
  53.            ZLinesInMsg = ZMaxMsgLines
  54.      FOR WasJ = 1 TO ZLinesInMsg
  55.         ZOutTxt$(WasJ) = ZOutTxt$(WasJ) + _
  56.                 CHR$(227)
  57.         ZWasSL = ZWasSL + LEN(ZOutTxt$(WasJ))
  58.      NEXT
  59.      IF ZWasSL MOD 128 = 0 THEN _
  60.         ZWasN$ = STR$(ZWasSL \ 128 + 1) _
  61.      ELSE ZWasN$ = STR$(ZWasSL \ 128 + 2)
  62.